home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00108_Launch Browser.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  659 b   |  16 lines
  1. on mouseUp
  2.   global gUserAnswer
  3.   myBrowser = browserName()
  4.   web = "http://www.lastcallgame.com"
  5.   promptText = "Would you like to open your web browser and visit us online?" & RETURN & "If your browser doesn't launch automatically, visit us at" && web
  6.   titleText = "Go Online?"
  7.   multiButtonDialog(["Yes", "No"], [#MAC: [100, 275], #Win: [75, 225]], "No", titleText, promptText, [#MAC: 425, #Win: 300], [#MAC: 75, #Win: 50])
  8.   if gUserAnswer = "Yes" then
  9.     if myBrowser <> EMPTY then
  10.       gotoNetPage(web)
  11.     else
  12.       MUIalert("You don't seem to have a browser installed. If you do, start it manually and visit us at" && web)
  13.     end if
  14.   end if
  15. end
  16.